home *** CD-ROM | disk | FTP | other *** search
/ Fish With Names Like... / Fish With Names Like... 2.5.iso / pc / Media / Creditsp.dir / 00018.ls < prev    next >
Encoding:
Text File  |  2004-03-23  |  501 b   |  26 lines

  1. on diverView
  2. end
  3.  
  4. on setcursor
  5. end
  6.  
  7. on click downSound, upSound
  8.   if stringp(downSound) then
  9.     puppetSound(downSound)
  10.   end if
  11.   this = the castNum of sprite the clickOn
  12.   set the castNum of sprite the clickOn to this + 1
  13.   updateStage()
  14.   repeat while the stillDown or soundBusy(1)
  15.   end repeat
  16.   if stringp(upSound) then
  17.     puppetSound(upSound)
  18.   end if
  19.   set the castNum of sprite the clickOn to this
  20.   updateStage()
  21.   repeat while soundBusy(1)
  22.   end repeat
  23.   puppetSound(0)
  24.   updateStage()
  25. end
  26.